home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / zcommbar.zip / 602.T < prev    next >
Text File  |  1987-12-22  |  2KB  |  35 lines
  1. begin:      ena -8g;cls;lput \r
  2.             lput " ╒ 602 Directory ════════════════════╕\r\n"
  3.             lput " │ a - Apollo BBS                    │\r\n"
  4.             lput " │ b - Voyager                       │\r\n"
  5.             lput " │ c - FOG #17                       │\r\n"
  6.             lput " │ d - Diamond III                   │\r\n"
  7.             lput " │ e - Micro-Systems                 │\r\n"
  8.             lput " │ f - Blax 80 BBS                   │\r\n"
  9.             lput " │ g - Omega                         │\r\n"
  10.             lput " │ h - Access                        │\r\n"
  11.             lput " │ i - Garden of Eden                │\r\n"
  12.             lput " │ j - Technoids Annonymous          │\r\n"
  13.             lput " │ k - Phoenix BBS                   │\r\n"
  14.             lput " │ l - Tool Shop -GT                 │\r\n"
  15.             lput " │ 1 - New City     0 - Redial       │\r\n"
  16.             lput " ╘═══════════════════════════════════╛\r\n"
  17.           acceptl1 s1 "Letter ?"
  18.           if is1,l put "d279-2673\r"
  19.           if is1,k put "d936-3058\r"
  20.           if is1,j put "d899-4876\r"
  21.           if is1,i put "d991-0144\r"
  22.           if is1,h put "d957-4428\r"
  23.           if is1,g put "d952-2018\r"
  24.           if is1,f put "d952-1382\r"
  25.           if is1,e put "d938-4508\r"
  26.           if is1,d put "d890-0972\r"
  27.           if is1,c put "d268-4474\r"
  28.           if is1,b put "d247-6034\r"
  29.           if is1,a put "d246-1432\r"
  30.           if is1,1 break; put \rD\r;call city.pursuit.t
  31.           if is1,0 put r\r;pat 1 S?;wait;put 5\r
  32.           pat 1i LINE;pat 2 *;wait
  33.           if !1 goback begin
  34.           t
  35.